
print.table <- function(x1, x2, x3, ....){
	options("scipen" = 100, "digits"=3)
  x1 <- unlist(x1)
  x2 <- unlist(x2)
  x3 <- unlist(x3)

  cat("Point Estimate &", format(x1[1], digits=3), "&", format(x2[1], digits=3), "&", format(x3[1], digits=3))
  cat("\\")
  cat("\\\n")
  cat("95% Confidence Interval &", "[", format(x1[2], digits=2), ", ", format(x1[3], digits=2), "] &" 
  								 , "[", format(x2[2], digits=2), ", ", format(x2[3], digits=2), "] &"
  								 , "[", format(x3[2], digits=2), ", ", format(x3[3], digits=2), "]", sep="")
  cat("\\")
  cat("\\\n")
  cat("$p$-value &", format(x1[4], digits=3), "&"
                   , format(x2[4], digits=3), "&"
                   , format(x3[4], digits=3))
  cat("\\")
  cat("\\\n")                
  cat("N  &"       , format(x1[5], digits=3), "&"
                   , format(x2[5], digits=3), "&"
                   , format(x3[5], digits=3))                 
  cat("\\")
  cat("\\\n")
  }

